library(readr)
df <- read_csv("~/Desktop/Ratios.csv", 
                   col_types = cols(Ratio = col_number()))
library(ggplot2)
par(mar=c(4,21,4,4))

bp<-barplot(df$Ratio,
        xlab="Nuclear Ratio, Superior:Inferior",
        names.arg=df$Name, las=2, horiz=2, main="Nuclear Ratios")

bp
